home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / xarchie-2.0.9 / m-query.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-06-19  |  1.0 KB  |  57 lines
  1. /*
  2.  * m-query.c : Query menu routines
  3.  *
  4.  * George Ferguson, ferguson@cs.rochester.edu, 23 Apr 1993.
  5.  */
  6.  
  7. #include <X11/Intrinsic.h>
  8. #include <X11/Xaw/SimpleMenu.h>
  9. #include <X11/Xaw/SmeBSB.h>
  10. #include <X11/StringDefs.h>
  11. #include "xarchie.h"
  12. #include "menu.h"
  13.  
  14. /*
  15.  * Functions defined here:
  16.  */
  17. void initQueryMenu();
  18. static void queryMenuCallback();
  19.  
  20. /*
  21.  * Data defined here:
  22.  */
  23. static Widget queryMenu;
  24.  
  25. /*    -    -    -    -    -    -    -    -    */
  26.  
  27. void
  28. initQueryMenu()
  29. {
  30.     queryMenu = createMenu("queryMenu","queryMenuItem",3,NULL,
  31.                queryMenuCallback);
  32. }
  33.  
  34. /* Callback procedure */
  35.  
  36. /*ARGSUSED*/
  37. static void
  38. queryMenuCallback(w,client_data,call_data)
  39. Widget w;
  40. XtPointer client_data;    /* item */
  41. XtPointer call_data;    /* ignored */
  42. {
  43.     int item = (int)client_data;
  44.  
  45.     switch (item) {
  46.     case 0: /* Query term */
  47.         XtCallActionProc(toplevel,"query",NULL,NULL,0);
  48.         break;
  49.     case 1: /* Query host */
  50.         XtCallActionProc(toplevel,"query-host",NULL,NULL,0);
  51.         break;
  52.     case 2: /* Query location */
  53.         XtCallActionProc(toplevel,"query-location",NULL,NULL,0);
  54.         break;
  55.     }
  56. }
  57.